home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Commo-Support / Disk-Archive / install-2_05.dms / install-2_05.adf / S / RoomForFonts < prev    next >
Encoding:
AmigaDOS Script File  |  1992-01-09  |  1.3 KB  |  39 lines
  1. .key dest/a,test/s
  2. .bra [
  3. .ket ]
  4. ; This script will look in [dest]fonts for all the files corresponding
  5. ; to those in AmigaFonts2.0:fonts, and add up all the space those files
  6. ; use (plus one block each for the directory entry).
  7. ; It sets the environment variable fontreturn based on its determination
  8. ; of whether the fonts will fit when copied to the destination.
  9. ; SIDE EFFECT: it leaves you CD'd to RAM:.  Eliminating the side-effect
  10. ; would mean an extra disk swap (asking for 2.0Install:).
  11. ;
  12. cd AmigaFonts2.0:fonts
  13. set total 0
  14. unset size
  15. alias getsize list >env:size lformat "%b"
  16. echo "Checking which files on AmigaFonts2.0: need to be copied..."
  17. list >t:sumsizes all files lformat "if exists [dest]fonts/%p%n*Ngetsize [dest]fonts/%p%n*Nset total *`eval *$size+*$total+1*`*Nendif"
  18. echo "Figuring out how much room will be reclaimed during overwriting..."
  19. execute t:sumsizes
  20. c:delete t:sumsizes quiet
  21. cd RAM:
  22.  
  23. ; check if we have enough space for fonts
  24. set size `info "[dest]"`
  25. set size `echo "$size" first 92 len 7`
  26. if "[test]" NOT EQ ""
  27.     echo "There are $size blocks free on $target,"
  28.     echo "plus $total blocks that would be reclaimed."
  29.     echo "We need approximately 1525 blocks total."
  30. endif
  31. if val $size GT `eval 1525-$total`
  32. set fontreturn 0
  33. else
  34. set fontreturn 5
  35. endif
  36. unalias getsize
  37. unset total
  38. unset size
  39.